Creating Command Bar Submenu

Hi, you will need to define x as a CommandBarControl control

eg



Note that as is it will add a menu item with no name or anything. Have you got more code or is this all you have so far?

Thanks for the advice, but I added the Dim x As CommandBarControl and I am still getting the same error...Help!!!!!!!!!!!!!!

It's not clear from your limited information exactly what you are trying to do. If your goal is to add a menu item to the File menu on the command bar, and if you want to attach a macro to that item, and if you only want that item to be visible on a certain workbook, then the following code shows one way to accomplish that.

There are a lot of ifs in the above paragraph because we are not mind readers, only programmers. This works when tested, assuming the above ifs are guessed accurately. If not, modify to suit or post back.

Example - -

In your workbook module:

Option Explicit

Private Sub Workbook_Activate()
Dim CB As CommandBar
Dim CBC As CommandBarControl
Dim CBCC As CommandBarButton
Set CB = Application.CommandBars.ActiveMenuBar
Set CBC = CB.Controls("File")
Set CBCC = CBC.Controls.Add
With CBCC
.Caption = "Test"
.OnAction = "TestMacro"
.FaceId = 36
End With
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars.ActiveMenuBar.Controls("File").Controls("Test").Delete
End Sub



In a standard module (modify for your actual macro):

Sub TestMacro()
MsgBox "This is a test of the File custom menu item."
End Sub

Thanks for your help.

My goal is very limited here. I just want to understand why the code I have does not work ( produces an error message ).

I think I can do the rest ( like attaching a macro ) once I understand what I'm doing wrong.

Thanks.